Chip 1998 September/CHIP Eylül 1998.iso/demolar/lokman/DISK1/_SETUP.4/Group1/Demo8E.exe/0/RCDATA/TGIZALFORM/TGIZALFORM.txt

Text File | 1998-07-30 | 8KB | 287 lines

object GizAlForm: TGizAlForm
  Left = 8
  Top = 32
  Width = 622
  Height = 420
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = [fsBold]
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 614
    Height = 393
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 4
    Caption = 'Panel2'
    Color = clGray
    TabOrder = 0
    object LabelTUT: TLabel
      Left = 458
      Top = 349
      Width = 141
      Height = 14
      Alignment = taRightJustify
      AutoSize = False
      Caption = 'LabelTUT'
      Color = clWhite
      ParentColor = False
    end
    object Label3: TLabel
      Left = 284
      Top = 360
      Width = 106
      Height = 14
      Caption = 'Yaz�c� Sol Marj (cm)'
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object DBGrid1: TDBGrid
      Left = 6
      Top = 6
      Width = 602
      Height = 340
      Align = alTop
      DataSource = DataSource1
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial Tur'
      Font.Style = [fsBold]
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      TitleFont.Color = clRed
      TitleFont.Height = -11
      TitleFont.Name = 'Arial Tur'
      TitleFont.Style = [fsBold]
    end
    object BitBtn1: TBitBtn
      Left = 9
      Top = 354
      Width = 75
      Height = 27
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      Kind = bkClose
    end
    object BtnFONT: TBitBtn
      Left = 188
      Top = 354
      Width = 89
      Height = 27
      Caption = 'Yaz� &Fontu'
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = BtnFONTClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333FFF33FFFFF33333300033000
        00333337773377777333333330333300033333337FF33777F333333330733300
        0333333377FFF777F33333333700000073333333777777773333333333033000
        3333333337FF777F333333333307300033333333377F777F3333333333703007
        33333333377F7773333333333330000333333333337777F33333333333300003
        33333333337777F3333333333337007333333333337777333333333333330033
        3333333333377333333333333333033333333333333733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object BtnYAZ: TBitBtn
      Left = 99
      Top = 354
      Width = 75
      Height = 27
      Caption = '&Yaz�c�'
      Font.Color = clNavy
      Font.Height = -12
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = BtnYAZClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00000000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
    object SpinEdit1: TSpinEdit
      Left = 395
      Top = 355
      Width = 46
      Height = 23
      MaxLength = 25
      MaxValue = 0
      MinValue = 0
      TabOrder = 4
      Value = 0
    end
  end
  object QALIS: TQuery
    BeforeOpen = QALISBeforeOpen
    AfterClose = QALISAfterClose
    DatabaseName = 'ECZ'
    Params.Data = {
      010002000454726842000B0800000000000000000000000454726853000B0800
      00000000000000000000}
    SQL.Strings = (
      'SELECT'
      ' ALIS3.ILACNO,'
      ' ALIS3.FIYAT,'
      ' ALIS3.MIKTAR,'
      ' ALIS3.FIYAT*ALIS3.MIKTAR AS TUTAR,'
      ' ALIS3.ALISTARIH'
      'FROM ALIS3'
      'WHERE (ALIS3.ALISTARIH>=:TrhB) AND'
      '(ALIS3.ALISTARIH<=:TrhS)'
      'ORDER BY ALIS3.ALISTARIH')
    Left = 340
    Top = 5
    object QALISALISTARIH: TDateTimeField
      DisplayLabel = 'Al�� Tarihi'
      DisplayWidth = 16
      FieldName = 'ALISTARIH'
      DisplayFormat = 'dd/mm/yyyy hh:nn'
    end
    object QALISILACNO: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = '�r�n Ad�'
      DisplayWidth = 36
      FieldName = 'ILACNO'
      OnGetText = QALISILACNOGetText
    end
    object QALISFIYAT: TCurrencyField
      DisplayLabel = 'Fiyat�'
      DisplayWidth = 14
      FieldName = 'FIYAT'
    end
    object QALISMIKTAR: TIntegerField
      DisplayLabel = 'Miktar'
      DisplayWidth = 6
      FieldName = 'MIKTAR'
    end
    object QALISTUTAR: TCurrencyField
      DisplayWidth = 16
      FieldName = 'TUTAR'
    end
  end
  object DataSource1: TDataSource
    DataSet = QALIS
    Left = 311
    Top = 5
  end
  object IlacBak: TTable
    DatabaseName = 'ECZ'
    TableName = 'URUN.DB'
    Left = 144
    Top = 48
    object IlacBakILACNO: TIntegerField
      FieldName = 'ILACNO'
    end
    object IlacBakILACAD: TStringField
      FieldName = 'ILACAD'
      Required = True
      Size = 36
    end
  end
  object TutarTab: TTable
    DatabaseName = 'ECZ'
    TableName = 'XTOPLAM.DB'
    Left = 344
    Top = 64
  end
  object QTOP: TQuery
    DatabaseName = 'ECZ'
    SQL.Strings = (
      'SELECT'
      'SUM(XTOPLAM.TUTAR)'
      'FROM XTOPLAM')
    Left = 376
    Top = 64
    object QTOPSUMofTUTAR: TCurrencyField
      FieldName = 'SUM of TUTAR'
    end
  end
  object BatchMove1: TBatchMove
    Destination = TutarTab
    Mappings.Strings = (
      'TUTAR=TUTAR')
    Mode = batCopy
    Source = QALIS
    Left = 344
    Top = 32
  end
  object FontDialog1: TFontDialog
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Courier New Tur'
    Font.Style = []
    Device = fdBoth
    MinFontSize = 0
    MaxFontSize = 0
    Options = [fdEffects, fdFixedPitchOnly]
    Left = 312
    Top = 304
  end
  object PrintDialog1: TPrintDialog
    Left = 344
    Top = 304
  end
  object FontTab: TTable
    DatabaseName = 'ECZ'
    TableName = 'FONT.DB'
    Left = 176
    Top = 288
    object FontTabBIRIM: TStringField
      FieldName = 'BIRIM'
      Size = 9
    end
    object FontTabFONTADI: TStringField
      FieldName = 'FONTADI'
      Size = 35
    end
    object FontTabFONTSIZE: TSmallintField
      FieldName = 'FONTSIZE'
    end
    object FontTabCOLOR: TIntegerField
      FieldName = 'COLOR'
    end
    object FontTabSTYLE: TStringField
      FieldName = 'STYLE'
      Size = 1
    end
    object FontTabMARJIN: TSmallintField
      FieldName = 'MARJIN'
    end
  end
end